Super business register ( 926 pas de programme ) Cash register, business bookkeeping. Enter 0, EXE, 0, EXE enter total charges : no tax, EXE enter anythong but if total charge is to have tax added, EXE enter tax %, EXE, EXE enter amount, rec., EXE, to not re-do transaction enter anythong but 1, EXE and again. Enter cost of items sold, EXE, EXE, EXE, EXE enter approximately daily expenses to run the business, EXE, EXE to keep memory even if PC-4 was off enter anything but 0, EXE enter 1 to review daily totals or 0 to continue transacting. Note : this program is designed to be run with a printer, if a printer is not used remove all MODE 7 and MODE 8 statements. 5 GOTO 289 10 X=0:T=0:G=0:A=0:B=0:Q=0:D=0:N=0:P=0:F=0:K=0:H=0 15 INPUT "TYPE 1,FOR DAILY TOTALS ",Y:IF Y=1 THEN 187 17 MODE 7 20 INPUT "CHARGE:NO TAX ",X:K=K+X:H=X 21 MODE 8 22 INPUT "IF NON-TAXABLE,1 ",J 23 IF J=1 THEN 30 24 IF S>0 THEN 27 25 INPUT "TAX %,.065 ",S 27 X=(X*S)+X:X=RND(X,-3):MODE 7:PRINT "AMOUNT+TAX ";X:MODE 8 30 F=X-H:MODE 7:INPUT "AMOUNT REC. ",T:MODE 8 35 INPUT "RE-DO,1 ",E:IF E=1;K=K-X:F=F-S:GOTO 20 41 B=0:B=INT (T-X) 51 A=0:A=(T-X)-B 60 IF A<.25 THEN 90 70 Q=Q+1:A=A-.25 80 GOTO 60 90 IF A<.10 THEN 120 100 D=D+1:A=A-.10 110 GOTO 90 120 IF A<.05 THEN 150 130 N=N+1:A=A-.05 140 GOTO 120 150 P=A*100:IF P<0;A=0 159 MODE 7 160 PRINT "CHANGE=";B;"$ ";Q;"Q's ";D;" DIMES ";N;" NICKLE"; 170 PRINT " ";P;" PENNIES "; 174 MODE 8 175 INPUT "RE-DO,1 ",E:IF E=1;K=K-X:F=F-S:B=0:Q=0:O=0:N=0:P=0 176 IF E=1 THEN 20 180 MODE 7 181 INPUT "COST OF ITEM ",Y 182 MODE 8 183 I=I+F 185 Y=ABS ((K+F)-Y)+W 186 C=C+1 187 W=Y 188 MODE 7 190 PRINT "GROSS PROFIT ";W 192 PRINT "TOTAL TAX ";I 193 PRINT "TOTAL RECIPTS ";C 194 IF L>0 THEN 196 195 INPUT "DAILY EXPENSES ",L 196 IF W>L;M=W-I-L:GOTO 198 197 IF W